Public Class ExtendedProperties
    Public Sub UpdateDatabaseDescription( _
        ByVal lDatabaseID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateDatabaseDescription(lDatabaseID, sDescription)
    End Sub

    Public Function GetDatabaseDescription( _
        ByVal lDatabaseID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetDatabaseDescription(lDatabaseID)
    End Function

    Public Sub UpdateLoginDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lLoginID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateLoginDescription(lDatabaseID, lLoginID, sDescription)
    End Sub

    Public Function GetLoginDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lLoginID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetLoginDescription(lDatabaseID, lLoginID)
    End Function

    Public Sub UpdateFunctionDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lFunctionID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateFunctionDescription(lDatabaseID, lFunctionID, sDescription)
    End Sub

    Public Function GetFunctionDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lFunctionID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetFunctionDescription(lDatabaseID, lFunctionID)
    End Function

    Public Sub UpdateSProcDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lSprocID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateSProcDescription(lDatabaseID, lSprocID, sDescription)
    End Sub

    Public Function GetSProcDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lSProcID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetSProcDescription(lDatabaseID, lSProcID)
    End Function

    Public Sub UpdateViewDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lViewID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateViewDescription(lDatabaseID, lViewID, sDescription)
    End Sub

    Public Function GetViewDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lViewID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetViewDescription(lDatabaseID, lViewID)
    End Function

    Public Sub UpdateTableDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lTableID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateTableDescription(lDatabaseID, lTableID, sDescription)
    End Sub

    Public Function GetTableDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lTableID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetTableDescription(lDatabaseID, lTableID)
    End Function

    Public Sub UpdateFieldDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lFieldID As Long, _
        ByVal sDescription As String)

        Dim oDBExtendedProperties As New DBExtendedProperties
        oDBExtendedProperties.UpdateFieldDescription(lDatabaseID, lFieldID, sDescription)
    End Sub

    Public Function GetFieldDescription( _
        ByVal lDatabaseID As Long, _
        ByVal lFieldID As Long) As String

        Dim oDBExtendedProperties As New DBExtendedProperties
        Return oDBExtendedProperties.GetFieldDescription(lDatabaseID, lFieldID)
    End Function
End Class
